extern doublereal dcabs1_(doublecomplex *z__);
